home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SXP681.ARC / BOOT6.8 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  86 lines
  1. 0 REM"[141][147][211]PENCE [216][208] [194][194][211] ([195])1994 BY [202]ASON [205]AC [201]NNES
  2. 100 X[178][194](186):[139]X[179]8[176]X[177]12[167]X[178]8
  3. 105 [139]A[178]1[167]125
  4. 110 [151]53281,.:[151]53280,11
  5. 115 [153][199](14);"LOADCONT(null)PENCE (null)(null) PEEKPEEK(null) (LEN) 1994 BY":[153]"MID$ASON (null)AC RIGHT$NNES
  6. 120 A=1:LOAD"0:SPENCE ML6.*",X,1
  7. 125 POKE248,206:POKE250,207:OPEN5,2,.,CHR$(8)
  8. 130 GOSUB385
  9. 135 CLOSE15:OPEN15,8,15:OPEN1,8,8,"0:CUSTOM
  10. 140 [132]15,A$,JM$,JM$,JM$:[139][197](A$)[178].[167]160
  11. 145 [153]"(null)LEASE INSERT PEEKPEEK(null) STR$ATA DISK INTO DRIVE":[153][166]10)"AND PRESS A KEY.
  12. 150 GETA$:IFA$=""THEN150
  13. 155 CLOSE1:CLOSE15:GOTO135
  14. 160 INPUT#1,A$,JM$,A$:IFVAL(A$)=-1THEN167
  15. 165 FORI=1TO(VAL(A$)+1)*3:INPUT#1,A$:NEXT
  16. 167 INPUT#1,A$:FORI=1TOVAL(A$)*4+4:INPUT#1,A$:NEXT
  17. 170 INPUT#1,A$:FORI=.TOVAL(A$)+4:INPUT#1,A$:NEXT:INPUT#1,A$,LD$,SU$,NB$,G$,G$
  18. 174 INPUT#1,G$,P1$,G$:LD=VAL(A$):LD$=LD$+":":DIMTB$(VAL(NB$)+7):I=8
  19. 175 FORX=.TOVAL(P1$):INPUT#1,G$:NEXT
  20. 176 INPUT#1,TB$(I):I=I+1:IFST=.THEN176
  21. 177 IFNB$>"4"THENNB$="4
  22. 178 G$[178]"":[129]I[178]8[164][197](NB$)[170]7:[151]720[170](I[171]8),.:[139]TB$(I)[178]"1"[167][151]720[170](I[171]8),128
  23. 179 [130]:[160]1
  24. 181 [129]I[178]8[164]7[170][197](NB$):[160]1:[139]TB$(I)[178]"2"[167][159]1,I,15,"U0>M1":[160]1
  25. 183 [130]
  26. 185 [151]690,2:[158]49230:A$[178]"SPENCE XP ML ACTIVE":[158]49179,A$:[158]49260
  27. 190 T1[178]56328:T2[178]T1[170]256:[151]965,49:[151]966,50:[151]967,48:[151]968,48
  28. 195 [151]53281,.:[151]53280,11:[151]56324,149:[151]56325,66:[143] TI CLOCK REVISION
  29. 200 [153][199](14);"LOAD(null)PENCE (null)(null) PEEKPEEK(null) V6.8 (LEN) 1994 BY":[153]"MID$ASONCLOSE(null)AC RIGHT$NNES
  30. 205 PRINT"[211]PENCE [216][208] USES THE [198][193][211][212] [199][193][210][194][193][199][197]
  31. 210 [153]"COLLECTION ROUTINE BY STR$AVID (null)ILLIAMS
  32. 215 POKE1018,.:POKE1023,.:PRINT"    [151]  [212]IME? "TI$"[157][157][157][157][157][157][157][157]";:INPUTPU$
  33. 217 IFLEN(PU$)<>6THENPRINT"[145][145][145]";:GOTO215
  34. 220 TI$=PU$:H$=LEFT$(PU$,2):M$=MID$(PU$,3,2):S$=RIGHT$(PU$,2)
  35. 225 H=.:IFVAL(H$)=>10ANDVAL(H$)<=12ORVAL(H$)=>22ANDVAL(H$)<24THENH=16
  36. 230 IFH$="12"THENH=128:H$="0":GOTO240
  37. 235 IFVAL(H$)>11THENH=128+H:HH=VAL(H$)-12:H$=STR$(HH):H$=RIGHT$(H$,LEN(H$)-1)
  38. 240 HH=VAL(RIGHT$(H$,1)):H=H+HH:POKET1+3,H
  39. 245 M=.:IFLEN(M$)>1THENM=16*VAL(LEFT$(M$,1))
  40. 250 MM=VAL(RIGHT$(M$,1)):M=M+MM:POKET1+2,M
  41. 255 S=.:IFLEN(S$)>1THENS=16*VAL(LEFT$(S$,1))
  42. 260 SS=VAL(RIGHT$(S$,1)):S=S+SS:POKET1+1,S:POKET1,.:POKE996,.
  43. 265 CLOSE15:INPUT"  [217]EAR? 1994[157][157][157][157][157][157]";YR$
  44. 270 INPUT" [205]ONTH? 0[157][157][157]";D1:IFD1<1ORD1>12THENPRINT"[145]";:GOTO270
  45. 275 POKE1000,D1
  46. 280 INPUT"   [196]AY? 0[157][157][157]";D2:IFD2<1ORD2>31THENPRINT"[145]";:GOTO280
  47. 285 POKE999,D2
  48. 290 INPUT"[195]OLOUR? 12[157][157][157][157]";C:IFC<0ORC>15ORC=7THENPRINT"[145]";:GOTO290
  49. 295 POKE690,C:POKE729,C
  50. 300 PRINT"[197]NTER '0' FOR [206]EW 1670 [205]ODEM"
  51. 305 PRINT"      '1' FOR 1200 [200]AYES/[207]LD 1670 [205]ODEM"
  52. 310 PRINT"      '2' FOR 2400 [200]AYES [205]ODEM"
  53. 311 PRINT"   OR '3' FOR [206][207] MODEM":PRINT
  54. 315 INPUT"[205]ODEM [212]YPE? 2[157][157][157]";MT:IFMT<0ORMT>3THENPRINT"[145]";:GOTO315
  55. 320 POKE2024,MT:POKE2027,255
  56. 325 YR=VAL(YR$):Y3=INT(YR/256):Y2=YR-(Y3*256):POKE1001,Y2:POKE1002,Y3
  57. 330 IFTI$<"010000"THENPOKE1018,1
  58. 335 OPEN15,LD,15:OPEN1,LD,8,LD$+"BBS6*":INPUT#15,A,JM$,JM,JM:CLOSE1:CLOSE15
  59. 340 IFA=.THEN360
  60. 345 PRINT"[208]LEASE INSERT [194][194][211] [208]ROGRAM DISK INTO":PRINTSPC(8)"DRIVE AND PRESS A KEY.
  61. 350 [161]A$:[139]A$[178]""[167]350
  62. 355 [153]:[137]335
  63. 360 [151]198,2:[151]631,13:[151]632,13:[129]X[178]3[164]0[169][171]1:[151]T2[170]X,.:[130]
  64. 370 [153]"LOADLOAD"[199](34)LD$"BBS6*"[199](34)",";LD;":
  65. 375 PRINT"RUN";
  66. 380 END
  67. 383 REM(C)1994JM"
  68. 385 [151]716,.:[151]712,[194](806):[151]713,[194](807):[143] SAVE OUTPUT VECTOR
  69. 387 [151]740,[194](712):[151]741,[194](713):[143] SECOND OUTPUT VECTOR
  70. 390 [151]719,16[171]([194](56577)[175]16):[143] ALLOW FOR INTERFACES WHICH INVERT DCD
  71. 395 [151]717,[194](792):[151]718,[194](793):[143] SAVE OLD NMI VECTOR
  72. 396 [151]725,[194](794):[151]726,[194](795):[143] SAVE OPEN VECTOR
  73. 397 [151]727,[194](816):[151]728,[194](817):[143] SAVE LOAD VECTOR
  74. 398 [151]739,.:[143] CHAT AVAIL DEFAULT
  75. 399 [151]751,.:[143] CLEAR WRAP FLAG
  76. 400 C[178]256:A[178][194](792)[170][194](793)[172]C
  77. 405 [139]A[178]57332[167][151]714,63:[151]715,223:[143] SUPERSNAPSHOT V2.0/3.0/4.0
  78. 410 [139]A[178]57076[167][151]714,72:[151]715,222:[143] SUPERSNAPSHOT V5.0
  79. 415 [139]A[178]40825[167][151]714,137:[151]715,159:[151]716,1:[143] RAMDOS AT PAGE 159
  80. 420 [139]A[178]65095[167][151]714,86:[151]715,254:[143] NORMAL NMI VECTOR AT C64 POWERUP
  81. 421 [151]732,.
  82. 422 [151]742,1:[151]743,221
  83. 423 [151]744,60:[143] RETURN MARKER
  84. 424 [151]747,.:[151]748,.:[143] ANSI FLAGS
  85. 425 [142]
  86.